;; ---
;; 1.8

(define (rc-iter tentativa x)
  (if (muito-bom? tentativa x)
      tentativa
      (rc-iter (melhora tentativa x)
                 x)))

(define (melhora y x)
  (/ (+ (/ x (* y y)) (* 2 y)) 3))

(define (muito-bom? y x)
  (< (abs (- (/ x (* y y)) y)) precisao))

(define (raizcubica x)
  (rc-iter 1.0 x))

(define precisao 0.0000000001)

(raizcubica 27)